home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
vert-4.bas
< prev
Wrap
BASIC Source File
|
1994-06-23
|
707b
|
21 lines
5 PRINT "LOADED VERTICAL ANTENNA"
10 INPUT "ENTER DISTANCE IN INCHES OF BOTTOM OF ANTENNA ABOVE GROUND"; A
15 INPUT "ENTER LENGTH IN FEET OF BOTTOM SECTION"; B
20 INPUT "ENTER LENGTH IN FEET OF TOP SECTION"; C
25 INPUT "ENTER DIAMETER IN INCHES OF ANTENNA"; D
30 INPUT "ENTER FREQUENCY IN MHZ"; F
35 K=57.2957795#
40 PI=355/113
45 L=3*10^6/(254*F)
50 BA=B*4320/L
55 BB=BA/K
60 CA=C*4320/L
65 CB=CA/K
70 CC=138*.4343*LOG((A+B*12+C*12)/D)
75 LO=(CC*(TAN(PI/2-CB)-TAN(BB)))/(2*PI*F)
80 PRINT "LO = "; LO "LOADING COIL INDUCTANCE IN MICROHENRIES"
90 BO=B*12*F/32.8
100 CO=C*12*F/32.8
110 RR=((CO*COS(BO/K))/2+BO*(1+COS(BO/K))/2)^2/82.3
115 PRINT "RR = "; RR "RADIATION RESISTANCE IN OHMS"